home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / inputout / function / parallel / setinfo.cmd < prev    next >
Encoding:
Text File  |  1994-08-11  |  395 b   |  19 lines
  1. /* REXX COMMAND FILE THAT WILL SET THE SYSINFO FILES. */
  2.  
  3. call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6.  
  7. SAY "Please enter the output port of your printer, such as LPT1"
  8. PULL LPTNUM
  9.  
  10.     "@IF EXIST SYSINFO.TXT DEL SYSINFO.TXT"
  11.     N=LINEOUT(SYSINFO.TXT, "PARA SET DEVICENAME="LPTNUM)
  12.     N=LINEOUT(SYSINFO.TXT)
  13.  
  14. call SysDropFuncs
  15. EXIT
  16. /*  DONE        */
  17.  
  18.  
  19.